PD ROM 1/PD ROM Volume I - Macintosh Software from BMUG (1988).iso/Stacks/Updates⁄New/Organnel Charts™/card_5744.txt

Text File | 1988-04-19 | 16.8 KB | 754 lines

-- card: 5744 from stack: in
-- bmap block id: 10228
-- flags: 4000
-- background id: 2577
-- name: NuSheet
----- HyperTalk script -----
on openCard
  put the long date into card field "date"
end openCard



-- part 1 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=13 top=248 right=330 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 7 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=429 top=226 right=248 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: RETURN
----- HyperTalk script -----
on mouseUp
  visual effect venetian blinds
  go to card "Level1"
end mouseUp



-- part 12 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=84 top=36 right=54 bottom=293
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 512
-- line height: 13
-- part name: name


-- part 16 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=372 top=36 right=54 bottom=497
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 512
-- line height: 13
-- part name:


-- part 18 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=85 top=64 right=82 bottom=140
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: sal
----- HyperTalk script -----
on closeField
  set  the numberFormat to "0.00"
  if hilite of button id 19 is true then
    put  line 1 of card field "sal"*26 into line 1 of card field "ansal"
  end if
  if hilite of button id 20 is true then
    put  line 1 of card field "sal"*24 into line 1 of card field "ansal"
  end if
  if hilite of button id 31 is true then
    put  line 1 of card field "sal"*52 into line 1 of card field "ansal"
  end if
end closeField











-- part 19 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=273 top=62 right=78 bottom=355
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: BiWeekly
----- HyperTalk script -----
on mouseUp
  set the numberFormat to "0.00"
  set the cursor to 4
  if hilite of button id 19 is true then
    put line 1 of card field "sal"*26 into line 1 of card field "ansal"
    set hilite of button id 20 to false
    set hilite of button id 31 to false
  else set hilite of button id 20 to true
  if hilite of button id 20 is true then
    put line 1 of card field "sal"*24 into line 1 of card field "ansal"
  end if
end mouseUp



-- part 20 (button)
-- low flags: 00
-- high flags: E006
-- rect: left=384 top=62 right=78 bottom=491
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SemiMonthly
----- HyperTalk script -----
on mouseUp
  set the numberFormat to "0.00"
  set the cursor to 4
  if hilite of button id 20 is true then
    put line 1 of card field "sal"*24 into line 1 of card field "ansal"
    set hilite of button id 19 to false
    set hilite of button id 31 to false
  else set hilite of button id 31 to true
  if hilite of button id 31 is true then
    put line 1 of card field "sal"*52 into line 1 of card field "ansal"
  end if
end mouseUp



-- part 23 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=129 top=90 right=108 bottom=196
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: ansal
----- HyperTalk script -----
on openField
  set the numberFormat to "0.00"
  send tabKey to card field "DoLR"
end openField


-- part 24 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=13 top=36 right=51 bottom=82
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Jod Title:


-- part 25 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=293 top=36 right=51 bottom=377
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Start Date:


-- part 26 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=12 top=62 right=77 bottom=72
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Salary:


-- part 27 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=12 top=88 right=103 bottom=115
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Annual Salary:


-- part 28 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=359 top=62 right=77 bottom=381
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: or


-- part 29 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=118 top=88 right=106 bottom=131
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: $


-- part 30 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=75 top=62 right=80 bottom=88
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: $


-- part 31 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=173 top=62 right=78 bottom=243
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Weekly
----- HyperTalk script -----
on mouseUp
  set the numberFormat to "0.00"
  set the cursor to 4
  if hilite of button id 31 is true then
    put line 1 of card field "sal"*52 into line 1 of card field "ansal"
    set hilite of button id 19 to false
    set hilite of button id 20 to false
  else set hilite of button id 19 to true
  if hilite of button id 19 is true then
    put line 1 of card field "sal"*26 into line 1 of card field "ansal"
  end if
end mouseUp



-- part 32 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=247 top=62 right=77 bottom=269
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: or


-- part 33 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=198 top=88 right=103 bottom=323
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Date of Last Raise:


-- part 34 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=330 top=88 right=106 bottom=451
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 512
-- line height: 13
-- part name: DoLR


-- part 35 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=12 top=113 right=129 bottom=260
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Amount of Last Raise per pay period:


-- part 36 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=274 top=115 right=133 bottom=340
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 512
-- line height: 13
-- part name:


-- part 37 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=263 top=113 right=131 bottom=276
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: $


-- part 38 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=344 top=113 right=129 bottom=457
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: % for Last Raise:


-- part 39 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=459 top=115 right=133 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 512
-- line height: 13
-- part name:


-- part 40 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=119 top=223 right=238 bottom=246
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Employee Number


-- part 41 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=247 top=222 right=240 bottom=346
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 512
-- line height: 13
-- part name:


-- part 42 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=211 top=131 right=146 bottom=277
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: What If?


-- part 43 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=271 top=155 right=172 bottom=355
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Salary:


-- part 44 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=271 top=176 right=192 bottom=403
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Annual Salary:


-- part 45 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=18 top=154 right=171 bottom=195
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Amount of Change:
----- HyperTalk script -----
on mouseUp
  set the cursor to 4
  if hilite of button id 45 is true then
    set hilite of button id 46 to false
    put empty into line 1 of card field "%ofchg"
    put empty into line 1 of card field "newsal"
    put empty into line 1 of card field "newansal"
    put empty into line 1 of card field "amofchg"
  else set hilite of button id 46 to true
end mouseUp



-- part 46 (button)
-- low flags: 00
-- high flags: E006
-- rect: left=18 top=176 right=192 bottom=158
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New % of Change:
----- HyperTalk script -----
on mouseUp
  set the cursor to 4
  if hilite of button id 46 is true then
    set hilite of button id 45 to false
    put empty into line 1 of card field "amofchg"
    put empty into line 1 of card field "newsal"
    put empty into line 1 of card field "newansal"
    put empty into line 1 of card field "%ofchg"
  else set hilite of button id 45 to true
end mouseUp



-- part 47 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=203 top=156 right=174 bottom=262
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: amofchg
----- HyperTalk script -----
on openField
  if hilite of button id 46 is true
  then go to card field id 48
end openField

on closeField
  set the cursor to 4
  set the numberFormat to "0.00"
  put (line 1 of card field "sal") + (line 1 of card field "amofchg") into line 1 of card field "newsal"
  put ((((line 1 of card field "newsal")/(line 1 of card field "sal")) - 1)*100) into line 1 of card field "%ofchg"
  if hilite of button id 31 is true then
    put ((line 1 of card field "sal") + (line 1 of card field "amofchg"))*52 into line 1 of card field "newansal"
  end if
  if hilite of button id 19 is true then
    put ((line 1 of card field "sal") + (line 1 of card field "amofchg"))*26 into line 1 of card field "newansal"
  end if
  if hilite of button id 20 is true then
    put ((line 1 of card field "sal") + (line 1 of card field "amofchg"))*24 into line 1 of card field "newansal"
  end if
end closeField



-- part 48 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=158 top=176 right=195 bottom=202
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: %ofchg
----- HyperTalk script -----
on openField
  if hilite of button id 45 is true
  then go to card field id 47
end openField


on closeField
  set the cursor to 4
  set the numberFormat to "0.00"
  put ((line 1 of card field "sal"*(line 1 of card field "%ofchg"/100)+ line 1 of card field "sal")) into line 1 of card field "newsal"
  put ((line 1 of card field "ansal"*(line 1 of card field "%ofchg"/100)+ line 1 of card field "ansal")) into line 1 of card field "newansal"
  put ((line 1 of card field "newsal")-(line 1 of card field "sal")) into line 1 of card field "amofchg"
end closeField



-- part 49 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=363 top=157 right=175 bottom=439
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: newsal


-- part 50 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=411 top=177 right=195 bottom=490
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: newansal


-- part 51 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=354 top=155 right=173 bottom=367
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: $


-- part 52 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=402 top=176 right=194 bottom=415
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: $


-- part 53 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=194 top=154 right=172 bottom=207
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: $


-- part 57 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=188 top=200 right=221 bottom=332
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button


-- part 58 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=13 top=234 right=249 bottom=59
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Notes


-- part 59 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=317 top=6 right=26 bottom=497
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: date


-- part contents for card part 23
----- text -----
0.00

-- part contents for card part 59
----- text -----
Saturday, January 30, 1988

-- part contents for card part 18
----- text -----
0

-- part contents for card part 48
----- text -----
0

-- part contents for card part 49
----- text -----
0.00

-- part contents for card part 50
----- text -----
0.00

-- part contents for card part 47
----- text -----
0.00

-- part contents for card part 1
----- text -----